﻿Imports MySQL
Imports MySQLCommand
Imports System.Data.SqlClient
Imports System.Configuration
Public Class Frm_ThongKeHoaDonNHap
    Dim M_BANGHDN As DataTable
    Dim n As Integer
#Region "===================  Function KÉT NỐI DB =============="
    Sub connect()
        clsSQL.setConnection(ConfigurationSettings.AppSettings("connect"))
        If clsSQL.Connected = False Then
            MsgBox("Lỗi kết nối dữ liệu !!")
        End If
    End Sub
#End Region

#Region "===================  Function Lấy dữ liệu các bảng hóa đơn NHẬP =============="

    Public Sub Fc_LayDLBangHDN()
        Dim ds As New DataSet
        clsSQL.FillDataSet("HSP_HOADONNHAP_XEM", ds, "Tbl_HDN")
        M_BANGHDN = ds.Tables("Tbl_HDN")
    End Sub
#End Region

#Region "===================  Function Lấy dữ liệu DS Hóa đơn nhập =============="

    Public Sub Fc_LoadDSHD()
        Fc_LayDLBangHDN()
        GV_HoaDon.DataSource = M_BANGHDN
        FC_DinhangGVHD()
    End Sub

#End Region

#Region "===================  Function Lấy dữ liệu DS chi tiet Hóa đơn nhập =============="

    Public Sub Fc_LoadDSChitietHDN()
        Dim ds As New DataSet
        clsSQL.FillDataSet("HSP_CHITIETHDN_XEMMAHD", ds, "Tbl_CTHDN", GV_HoaDon.Item(0, GV_HoaDon.CurrentRow.Index).Value)
        GV_ChiTietHD.DataSource = ds.Tables("tbl_CTHDN")
        FC_DinhangGVCTHD()
    End Sub

#End Region

#Region "===================  SỰ KIỆN LOAD FORM =============="

    Private Sub Frm_ThongKeHoaDon_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ' connect()
        Fc_LoadDSHD()
    End Sub

#End Region

#Region "===================  NÚT CẬP NHẬT TIỀN HÓA ĐƠN =============="
    Public Sub Fc_LayThongTinTextBox()
        Fc_LoadDSChitietHDN()
        Txt_NguoiLap.Text = M_BANGHDN.Rows(GV_HoaDon.CurrentRow.Index).Item("FULLNAME")
        Txt_TenKH.Text = M_BANGHDN.Rows(GV_HoaDon.CurrentRow.Index).Item("TENNCC")
        Txt_SoHD.Text = M_BANGHDN.Rows(GV_HoaDon.CurrentRow.Index).Item("mahdn")
        Txt_NgayLap.Text = M_BANGHDN.Rows(GV_HoaDon.CurrentRow.Index).Item("ngaylaphd")
        Txt_ThanhToan.Text = M_BANGHDN.Rows(GV_HoaDon.CurrentRow.Index).Item("thanhtoan")
        Txt_TongTriGia.Text = M_BANGHDN.Rows(GV_HoaDon.CurrentRow.Index).Item("tongtien")
        Txt_ConLai.Text = M_BANGHDN.Rows(GV_HoaDon.CurrentRow.Index).Item("tienconlai")
    End Sub
#End Region

#Region "===================  SỰ KIỆN CLICK LEN DS HÓA ĐƠN =============="

    Private Sub GV_HoaDon_CellClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles GV_HoaDon.CellClick
        n = GV_HoaDon.CurrentRow.Index
        Fc_LayThongTinTextBox()
    End Sub

#End Region

#Region "===================  NÚT CẬP NHẬT TIỀN HÓA ĐƠN =============="


    Private Sub Cmd_CapNhat_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cmd_CapNhat.Click
        Try
            clsSQL.ExecCommand("HSP_HOADONNHAP_CAPNHAT_TIENTRA", Txt_SoHD.Text, Val(Txt_ThanhToan.Text))
            Fc_LoadDSHD()
            GV_HoaDon.Rows(n).Selected = True
            Fc_LayThongTinTextBox()
        Catch ex As Exception
            MsgBox("Lỗi hệ thống, vui lòng thử lại!")
        End Try

    End Sub

#End Region

#Region "===================  NÚT TÌM SỐ HÓA ĐƠN =============="

    Private Sub Cmd_TimHD_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cmd_TimHD.Click
        Try
            Dim ds As New DataSet
            If Txt_SoHD.Text = "" Then
                Txt_SoHD.Text = 0
            End If
            Rb_ChuaTT.Checked = False
            Rb_Conthieu.Checked = False
            clsSQL.FillDataSet("HSP_HOADONNHAP_XEMMAHD", ds, "Tbl_HDN", Txt_SoHD.Text)
            If ds.Tables("tbl_HDN").Rows.Count = 0 Then
                MsgBox("Số Hóa đơn vừa chọn không tồn tại !!! ")
                Fc_LoadDSHD()
            Else
                M_BANGHDN = ds.Tables("tbl_HDN")
                GV_HoaDon.DataSource = M_BANGHDN
            End If
        Catch ex As Exception
            MsgBox("Lỗi kết nối Server !!")
        End Try

    End Sub

#End Region

#Region "===================  NÚT TÌM HÓA ĐƠN CHƯA THANH TOÁN =============="

    Private Sub Rb_ChuaTT_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Rb_ChuaTT.CheckedChanged
        Try
            Dim ds As New DataSet
            clsSQL.FillDataSet("HSP_HOADONNHAP_ChuaTT", ds, "Tbl_HDNctt")
            If ds.Tables("tbl_HDNctt").Rows.Count = 0 Then
                MsgBox("Tất cả các HĐ nhập hàng đều đã được thanh toán !!! ")
                Fc_LoadDSHD()
            Else
                M_BANGHDN = ds.Tables("tbl_HDNctt")
                GV_HoaDon.DataSource = M_BANGHDN
            End If
        Catch ex As Exception
            MsgBox("Lỗi kết nối Server !!")
        End Try
    End Sub

#End Region

#Region "===================  NÚT TÌM HÓA ĐƠN CÒN THIẾU =============="

    Private Sub Rb_Conthieu_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Rb_Conthieu.CheckedChanged
        Try
            Dim ds As New DataSet
            clsSQL.FillDataSet("HSP_HOADONNHAP_ConThieu", ds, "Tbl_HDNconthieu")
            If ds.Tables("tbl_HDNconthieu").Rows.Count = 0 Then
                MsgBox("Không có hóa đơn chưa thanh toán xong !!! ")
                Fc_LoadDSHD()
            Else
                M_BANGHDN = ds.Tables("tbl_HDNconthieu")
                GV_HoaDon.DataSource = M_BANGHDN
            End If
        Catch ex As Exception
            MsgBox("Lỗi kết nối Server !!")
        End Try
    End Sub

#End Region

#Region "===================  FC ĐỊNH DẠNG BẢNG HÓA ĐƠN =============="

    Public Sub FC_DinhangGVHD()
        GV_HoaDon.Columns(1).Visible = False
        GV_HoaDon.Columns(3).Visible = False
        GV_HoaDon.Columns(6).Visible = False
        GV_HoaDon.Columns(7).Visible = False
        GV_HoaDon.Columns(8).Visible = False
        GV_HoaDon.Columns(9).Visible = False
        GV_HoaDon.Columns(10).Visible = False
        GV_HoaDon.Columns(11).Visible = False

        GV_HoaDon.Columns(0).HeaderText = "Số HĐ"
        GV_HoaDon.Columns(2).HeaderText = "Người nhận"
        GV_HoaDon.Columns(4).HeaderText = "Người giao"
        GV_HoaDon.Columns(5).HeaderText = "Hình thức TT"

    End Sub
    Public Sub FC_DinhangGVCTHD()
        GV_ChiTietHD.Columns(0).HeaderText = "Loại SP"
        GV_ChiTietHD.Columns(1).HeaderText = "Tên SP"
        GV_ChiTietHD.Columns(2).HeaderText = "Số lượng"
        GV_ChiTietHD.Columns(3).HeaderText = "Đơn giá N"
        GV_ChiTietHD.Columns(4).HeaderText = "Đơn giá X"
        GV_ChiTietHD.Columns(5).HeaderText = "VAT"

    End Sub

#End Region




End Class